
nGiorni:-
	periodo([GA,MA,AA],[GP,MP,AP]),
	(AA==AP->
		((MA==MP-> 
			(G is GP-GA+1,
			Ngiorni is G)
			;
			(((X is MP-MA,X==1)->
				(giorni(MA,G1),
				G2 is G1-GA+1,
				G is GP+G2,
				Ngiorni is G)
				;
				Ngiorni is 1000))))
		;
		((Y is AP-AA,Y==1,MA==12,MP==1)->
			(G is GP+31-GA+1,
			Ngiorni is G)
			;
			Ngiorni is 1000)),
	assert(giorni(Ngiorni)).	

/* Definizione del numero di giorni per ogni mese */
giorni(1,31).
giorni(2,28).
giorni(3,31).
giorni(4,30).
giorni(5,31).
giorni(6,30).
giorni(7,31).
giorni(8,31).
giorni(9,30).
giorni(10,31).
giorni(11,30).
giorni(12,31).

